home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / src / cmds / select / select.c < prev    next >
Encoding:
C/C++ Source or Header  |  1992-11-30  |  3.3 KB  |  128 lines
  1. /* 
  2.  * select.c --
  3.  *
  4.  *    This is a simple program that outputs the Sx selection on
  5.  *    its standard output.
  6.  *
  7.  * Copyright 1987 Regents of the University of California
  8.  * Permission to use, copy, modify, and distribute this
  9.  * software and its documentation for any purpose and without
  10.  * fee is hereby granted, provided that the above copyright
  11.  * notice appear in all copies.  The University of California
  12.  * makes no representations about the suitability of this
  13.  * software for any purpose.  It is provided "as is" without
  14.  * express or implied warranty.
  15.  */
  16.  
  17. #ifndef lint
  18. static char rcsid[] = "$Header: /sprite/src/cmds/select/RCS/select.c,v 1.2 92/06/04 17:11:03 jhh Exp $ SPRITE (Berkeley)";
  19. #endif not lint
  20.  
  21. #include <stdio.h>
  22. #include <tk.h>
  23. #include <tcl.h>
  24. #include <X11/Xatom.h>
  25.  
  26. typedef struct {
  27.     char *string;        /* Contents of selection are
  28.                  * here.  This space is malloc-ed. */
  29.     int bytesAvl;        /* Total number of bytes available
  30.                  * at string. */
  31.     int bytesUsed;        /* Bytes currently in use in string,
  32.                  * not including the terminating
  33.                  * NULL. */
  34. } GetInfo;
  35.  
  36. static int SelGetProc _ARGS_((ClientData clientData, char *portion));
  37.  
  38. main()
  39. {
  40.     Tk_Window     window;
  41.     Tcl_Interp    *interp;
  42.     int        rc;
  43.     GetInfo     getInfo;
  44.  
  45.     interp = Tcl_CreateInterp();
  46.     if (interp == NULL) {
  47.     fprintf(stderr, "Couldn't create TCL interpreter\n");
  48.     exit(1);
  49.     }
  50.     window = Tk_CreateMainWindow(interp, NULL, "select");
  51.     if (window == NULL) {
  52.     fprintf(stderr, "%s\n", interp->result);
  53.     exit(1);
  54.     }
  55.     Tk_MakeWindowExist(window);
  56.     getInfo.string = (char *) ckalloc(100);
  57.     getInfo.bytesAvl = 100;
  58.     getInfo.bytesUsed = 0;
  59.     rc = Tk_GetSelection(interp, window, XA_STRING, SelGetProc, 
  60.         (ClientData) &getInfo);
  61.     if (rc != TCL_OK) {
  62.     fprintf(stderr, "%s\n", interp->result);
  63.     exit(1);
  64.     }
  65.     write(1, getInfo.string, getInfo.bytesUsed);
  66.     exit(0);
  67. }
  68.  
  69. /*
  70.  *--------------------------------------------------------------
  71.  *
  72.  * SelGetProc --
  73.  *
  74.  *    This procedure is invoked to process pieces of the
  75.  *    selection as they arrive during Tk_GetSelection.
  76.  *
  77.  * Results:
  78.  *    Always returns TCL_OK.
  79.  *
  80.  * Side effects:
  81.  *    Bytes are stored in getInfoPtr->string, which is 
  82.  *    expanded if necessary.
  83.  *
  84.  *--------------------------------------------------------------
  85.  */
  86.  
  87.     /* ARGSUSED */
  88. static int
  89. SelGetProc(clientData, interp, portion)
  90.     ClientData clientData;    /* Information about partially-
  91.                  * assembled result. */
  92.     Tcl_Interp *interp;        /* Interpreter used for error
  93.                  * reporting (not used). */
  94.     char *portion;        /* New information to be appended. */
  95. {
  96.     register GetInfo *getInfoPtr = (GetInfo *) clientData;
  97.     int newLength;
  98.  
  99.     newLength = strlen(portion) + getInfoPtr->bytesUsed;
  100.  
  101.     /*
  102.      * Grow the result area if we've run out of space.
  103.      */
  104.  
  105.     if (newLength >= getInfoPtr->bytesAvl) {
  106.     char *newString;
  107.  
  108.     getInfoPtr->bytesAvl *= 2;
  109.     if (getInfoPtr->bytesAvl <= newLength) {
  110.         getInfoPtr->bytesAvl = newLength + 1;
  111.     }
  112.     newString = (char *) ckalloc((unsigned) getInfoPtr->bytesAvl);
  113.     memcpy((char *) newString, (char *) getInfoPtr->string,
  114.         getInfoPtr->bytesUsed);
  115.     ckfree(getInfoPtr->string);
  116.     getInfoPtr->string = newString;
  117.     }
  118.  
  119.     /*
  120.      * Append the new data to what was already there.
  121.      */
  122.  
  123.     strcpy(getInfoPtr->string + getInfoPtr->bytesUsed, portion);
  124.     getInfoPtr->bytesUsed = newLength;
  125.     return TCL_OK;
  126. }
  127.  
  128.